home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / educate / riskitsh.zip / RISK-IT2.BAS < prev    next >
BASIC Source File  |  1996-09-16  |  80KB  |  1,214 lines
  1. CLS
  2. DEF SEG = 0: POKE 1047, 64
  3. WRONG1:
  4. DEF SEG = &HB800: BLOAD "RISK-IT2.ENT", 0
  5. BEEP
  6.  
  7. GOOVER: GO$ = INKEY$: IF GO$ = "" THEN GOTO GOOVER
  8. IF GO$ = "1" THEN GOSUB SD1: GOTO RR1
  9. IF GO$ = "2" THEN GOTO NAMES
  10. IF GO$ = "Q" THEN GOTO QENDS
  11. IF GO$ <> "Q" AND GO$ <> "1" AND GO$ <> "2" THEN GOSUB BOOB: GOTO WRONG1
  12.  
  13. REDOREG: REG$ = INKEY$: IF REG$ = "" THEN GOTO REDOREG
  14. IF REG$ = "Q" THEN GOTO QENDS
  15. GOTO WRONG1
  16. RR1: BLOAD "RISK-IT2.RR1": RR1$ = INKEY$: IF RR1$ = "" THEN GOTO RR1
  17. IF RR1$ = "C" THEN GOSUB SD1: GOTO R2R
  18. IF RR1$ = "Q" THEN GOTO QENDS
  19. IF RR1$ <> "Q" AND RR1$ <> "C" THEN GOSUB BOOB: GOTO RR1
  20. R2R: BLOAD "RISK-IT2.RR2": RR2$ = INKEY$: IF RR2$ = "" THEN GOTO R2R
  21. IF RR2$ = "B" THEN GOSUB SD1: GOTO RR1
  22. IF RR2$ = "C" THEN GOSUB SD1: GOTO R3R
  23. IF RR2$ = "Q" THEN GOTO QENDS
  24. IF RR2$ <> "Q" AND RR3$ <> "C" THEN GOSUB BOOB: GOTO R2R
  25. R3R: BLOAD "RISK-IT2.RR3": RR3$ = INKEY$: IF RR3$ = "" THEN GOTO R3R
  26. IF RR3$ = "B" THEN GOSUB SD1: GOTO R2R
  27. IF RR3$ = "C" THEN GOSUB SD1: GOTO R4R
  28. IF RR3$ = "Q" THEN GOTO QENDS
  29. IF RR3$ <> "Q" AND RR3$ <> "C" THEN GOSUB BOOB: GOTO R3R
  30. R4R: BLOAD "RISK-IT2.RR4": RR4$ = INKEY$: IF RR4$ = "" THEN GOTO R4R
  31. IF RR4$ = "B" THEN GOSUB SD1: GOTO R3R
  32. IF RR4$ = "C" THEN GOSUB SD1: GOTO R5R
  33. IF RR4$ = "Q" THEN GOTO QENDS
  34. IF RR4$ <> "Q" AND RR4$ <> "C" THEN GOSUB BOOB: GOTO R4R
  35. R5R: BLOAD "RISK-IT2.RR5": RR5$ = INKEY$: IF RR5$ = "" THEN GOTO R5R
  36. IF RR5$ = "B" THEN GOSUB SD1: GOTO R4R
  37. IF RR5$ = "C" THEN GOSUB SD1: GOTO R6R
  38. IF RR5$ = "Q" THEN GOTO QENDS
  39. IF RR5$ <> "C" AND RR5$ <> "Q" THEN GOSUB BOOB: GOTO R5R
  40. R6R: BLOAD "RISK-IT2.RR6": RR6$ = INKEY$: IF RR6$ = "" THEN GOTO R6R
  41. IF RR6$ = "B" THEN GOSUB SD1: GOTO R5R
  42. IF RR6$ = "C" THEN GOSUB SD1: GOTO R7R
  43. IF RR6$ = "Q" THEN GOTO QENDS
  44. IF RR6$ <> "Q" AND RR6$ <> "C" THEN GOSUB BOOB: GOTO R6R
  45. R7R: BLOAD "RISK-IT2.RR7": RR7$ = INKEY$: IF RR7$ = "" THEN GOTO R7R
  46. IF RR7$ = "B" THEN GOSUB SD1: GOTO R6R
  47. IF RR7$ = "C" THEN GOSUB SD1: GOTO R8R
  48. IF RR7$ = "Q" THEN GOTO QENDS
  49. IF RR7$ <> "Q" AND RR7$ <> "C" THEN GOSUB BOOB: GOTO R7R
  50. R8R: BLOAD "RISK-IT2.RR8": RR8$ = INKEY$: IF RR8$ = "" THEN GOTO R8R
  51. IF RR8$ = "B" THEN GOSUB SD1: GOTO R7R
  52. IF RR8$ = "C" THEN GOSUB SD1: GOTO R9R
  53. IF RR8$ = "Q" THEN GOTO QENDS
  54. IF RR8$ <> "Q" AND RR8$ <> "C" THEN GOSUB BOOB: GOTO R8R
  55. R9R: BLOAD "RISK-IT2.RR9": RR9$ = INKEY$: IF RR9$ = "" THEN GOTO R9R
  56. IF RR9$ = "B" THEN GOSUB SD1: GOTO R8R
  57. IF RR9$ = "C" THEN GOSUB SD1: GOTO R10R
  58. IF RR9$ = "Q" THEN GOTO QENDS
  59. IF RR9$ <> "Q" AND RR9$ <> "C" THEN GOSUB BOOB: GOTO R9R
  60. R10R: BLOAD "RISK-IT2.R10": RR10$ = INKEY$: IF RR10$ = "" THEN GOTO R10R
  61. IF RR10$ = "B" THEN GOSUB SD1: GOTO R9R
  62. IF RR10$ = "C" THEN GOSUB SD1: GOTO R11R
  63. IF RR10$ = "Q" THEN GOTO QENDS
  64. IF RR10$ <> "C" AND RR10$ <> "Q" THEN GOSUB BOOB: GOTO R10R
  65. R11R: BLOAD "RISK-IT2.R11": RR11$ = INKEY$: IF RR11$ = "" THEN GOTO R11R
  66. IF RR11$ = "B" THEN GOSUB SD1: GOTO R10R
  67. IF RR11$ = "C" THEN GOSUB SD1: GOTO R12R
  68. IF RR11$ = "Q" THEN GOTO QENDS
  69. IF RR11$ <> "Q" AND RR11$ <> "C" THEN GOSUB BOOB: GOTO R11R
  70. R12R: BLOAD "RISK-IT2.R12": RR12$ = INKEY$: IF RR12$ = "" THEN GOTO R12R
  71. IF RR12$ = "B" THEN GOSUB SD1: GOTO R11R
  72. IF RR12$ = "C" THEN IF TC$ = "R" THEN GOSUB SD1: RETURN:  ELSE GOSUB SD1: GOTO NAMES
  73. IF RR12$ = "Q" THEN GOTO QENDS
  74. IF RR12$ <> "Q" AND RR7$ <> "C" THEN GOSUB BOOB: GOTO R12R
  75.  
  76. NAMES:
  77. OPEN "DATA.DAT" FOR RANDOM AS #1 LEN = 5
  78. FIELD #1, 5 AS Z$
  79. CODE% = 1
  80. GET #1, CODE%
  81. IF Z$ = "11110" THEN PAID$ = "1"
  82. CLOSE
  83. IF NOPLS$ = "R" THEN CLEAR
  84. PLSREDO: BEEP: BLOAD "RISK-IT2.NAM"
  85. PL1REDO: LOCATE 13, 40: COLOR 14, 0: LINE INPUT PL1$
  86. IF PL1$ = "Q" THEN GOTO QENDS
  87. IF PL1$ = "" THEN GOSUB TEX2: LOCATE 13, 40: COLOR 15, 4: PRINT " NO ONE IS PLAYING? ": SLEEP 2: GOTO PLSREDO
  88. GOSUB SD1
  89. PL2REDO: COLOR 14, 0: LOCATE 15, 40: LINE INPUT PL2$
  90. IF PL2$ = "Q" THEN GOTO QENDS
  91. IF PL2$ = "" THEN GOSUB TEX2: LOCATE 15, 40: COLOR 15, 4: PRINT " 2 PLAYER MINIMUM "
  92. IF PL2$ = "" THEN SLEEP 2: LOCATE 15, 40: COLOR 0, 0: PRINT "                   ": GOTO PL2REDO
  93. GOSUB SD1
  94. PL3REDO: COLOR 14, 0: LOCATE 17, 40: LINE INPUT PL3$
  95. IF PL3$ = "Q" THEN GOTO QENDS
  96. IF PL3$ = "D" THEN PL3$ = "": GOTO WHISTLE
  97. IF PL3$ = "" THEN GOSUB TEX2: LOCATE 17, 40: COLOR 15, 4: PRINT " TYPE D IF DONE "
  98. IF PL3$ = "" THEN SLEEP 2: LOCATE 17, 40: COLOR 0, 0: PRINT "                 ": GOTO PL3REDO
  99. GOSUB SD1
  100. PL4REDO: COLOR 14, 0: LOCATE 19, 40: LINE INPUT PL4$
  101. IF PL4$ = "Q" THEN GOTO QENDS
  102. IF PL4$ = "D" THEN PL4$ = "": GOTO WHISTLE
  103. IF PL4$ = "" THEN GOSUB TEX2: LOCATE 19, 40: COLOR 15, 4: PRINT " TYPE D IF DONE "
  104. IF PL4$ = "" THEN SLEEP 2: LOCATE 19, 40: COLOR 0, 0: PRINT "                 ": GOTO PL4REDO
  105. GOSUB SD1
  106. PL5REDO: COLOR 14, 0: LOCATE 21, 40: LINE INPUT PL5$
  107. IF PL5$ = "Q" THEN GOTO QENDS
  108. IF PL5$ = "D" THEN PL5$ = "": GOTO WHISTLE
  109. IF PL5$ = "" THEN GOSUB TEX2: LOCATE 21, 40: COLOR 15, 4: PRINT " TYPE D IF DONE "
  110. IF PL5$ = "" THEN SLEEP 2: LOCATE 21, 40: COLOR 0, 0: PRINT "                 ": GOTO PL5REDO
  111. GOSUB SD1
  112. PL6REDO: COLOR 14, 0: LOCATE 23, 40: LINE INPUT PL6$
  113. IF PL6$ = "Q" THEN GOTO QENDS
  114. IF PL6$ = "D" THEN PL6$ = "": GOTO WHISTLE
  115. IF PL6$ = "" THEN GOSUB TEX2: LOCATE 23, 40: COLOR 15, 4: PRINT " TYPE D IF DONE "
  116. IF PL6$ = "" THEN SLEEP 2: LOCATE 23, 40: COLOR 0, 0: PRINT "                  ": GOTO PL6REDO
  117. WHISTLE: GOSUB WHS
  118. IF PL1$ <> "" AND PL2$ <> "" AND PL3$ = "" AND PL4$ = "" AND PL5$ = "" AND PL6$ = "" THEN PL1$ = "YOUR MATE": PL2$ = "YOUR MATE": PL3$ = "YOUR MATE": PL4$ = "YOUR MATE": PL5$ = "YOUR MATE": PL6$ = "YOUR MATE"
  119. IF PL3$ = "YOUR MATE" AND PL4$ = "YOUR MATE" AND PL5$ = "YOUR MATE" AND PL6$ = "YOUR MATE" THEN CPLR1$ = "MATE #1": CPLR2$ = "MATE #2": CPLR3$ = "NO PLAYER": CPLR4$ = "NO PLAYER": CPLR5$ = "NO PLAYER": CPLR6$ = "NO PLAYER": PLG$ = "2": GOTO PLSKIP
  120. IF PL1$ <> "" AND PL2$ <> "" AND PL3$ <> "" AND PL4$ = "" AND PL5$ = "" AND PL6$ = "" THEN PL4$ = PL1$: PL5$ = PL2$: PL6$ = PL3$: CPLR1$ = PL1$: CPLR2$ = PL2$: CPLR3$ = PL3$:                              CPLR4$ = "NO PLAYER": CPLR5$ = "NO PLAYER": _
  121.            CPLR6$ = "NO PLAYER": PLG$ = "3": GOTO PLSKIP
  122. IF PL1$ <> "" AND PL2$ <> "" AND PL3$ <> "" AND PL4$ <> "" AND PL5$ = "" AND PL6$ = "" THEN PL5$ = "LEFT PLAYER": PL6$ = "RIGHT PLAYER": CPLR1$ = PL1$: CPLR2$ = PL2$: CPLR3$ = PL3$: CPLR4$ = PL4$: CPLR5$ = "NO PLAYER": CPLR6$ = "NO PLAYER": _
  123.            PLG$ = "4": GOTO PLSKIP
  124. IF PL1$ <> "" AND PL2$ <> "" AND PL3$ <> "" AND PL4$ <> "" AND PL5$ <> "" AND PL6$ = "" THEN PL6$ = "ANYONE": CPLR1$ = PL1$: CPLR2$ = PL2$: CPLR3$ = PL3$: CPLR4$ = PL4$: CPLR5$ = PL5$:                              CPLR6$ = "NO PLAYER": PLG$ = "5": _
  125.            GOTO PLSKIP
  126. IF PL1$ <> "" AND PL2$ <> "" AND PL3$ <> "" AND PL4$ <> "" AND PL5$ <> "" AND PL6$ <> "" THEN PLG$ = "6": CPLR1$ = PL1$: CPLR2$ = PL2$: CPLR3$ = PL3$: CPLR4$ = PL4$: CPLR5$ = PL5$:                              CPLR6$ = PL6$: GOTO PLSKIP
  127. PLSKIP:
  128. IF END$ = "R" THEN C2! = 1: C3! = 1: C4! = 1: C5! = 1: C6! = 1: C7! = 1: C8! = 1: C9! = 1: C10! = 1: C11! = 1: C12! = 1: GOTO SDIE
  129. BLOAD "RISK-IT2.MUS", 0
  130. GOREDO: GO$ = INKEY$: IF GO$ = "" THEN GOTO GOREDO:
  131. IF GO$ = "Q" THEN GOTO QENDS
  132. SOUND 100, 4: SOUND 300, 4: SOUND 500, 4: SOUND 700, 4: SOUND 900, 4
  133. C2! = 1: C3! = 1: C4! = 1: C5! = 1: C6! = 1: C7! = 1: C8! = 1: C9! = 1: C10! = 1: C11! = 1: C12! = 1: GOTO SDIE
  134. RCIN:
  135. SKIPOTHERS:
  136. IF N% = 2 THEN C2! = C2! + 1: IF C2! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS2
  137. IF N% = 3 THEN C3! = C3! + 1: IF C3! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS3
  138. IF N% = 4 THEN C4! = C4! + 1: IF C4! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS4
  139. IF N% = 5 THEN C5! = C5! + 1: IF C5! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS5
  140. IF N% = 6 THEN C6! = C6! + 1: IF C6! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS6
  141. IF N% = 7 THEN C7! = C7! + 1: IF C7! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS7
  142. IF N% = 8 THEN C8! = C8! + 1: IF C8! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS8
  143. IF N% = 9 THEN C9! = C9! + 1: IF C9! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS9
  144. IF N% = 10 THEN C10! = C10! + 1: IF C10! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS10
  145. IF N% = 11 THEN C11! = C11! + 1: IF C11! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS11
  146. IF N% = 12 THEN C12! = C12! + 1: IF C12! > 5 THEN GOTO CHIT:  ELSE GOTO CMDS12
  147. SDIE:
  148. IF CPLR1$ = "OUT OF GAME" THEN PY1$ = "1"
  149. IF CPLR2$ = "OUT OF GAME" THEN PY2$ = "2"
  150. IF CPLR3$ = "OUT OF GAME" OR CPLR3$ = "NO PLAYER" THEN PY3$ = "3"
  151. IF CPLR4$ = "OUT OF GAME" OR CPLR4$ = "NO PLAYER" THEN PY4$ = "4"
  152. IF CPLR5$ = "OUT OF GAME" OR CPLR5$ = "NO PLAYER" THEN PY5$ = "5"
  153. IF CPLR6$ = "OUT OF GAME" OR CPLR6$ = "NO PLAYER" THEN PY6$ = "6"
  154. IF PLG$ = "2" AND PY2$ = "2" THEN WINNER$ = CPLR1$: GOTO WINNER
  155. IF PLG$ = "2" AND PY1$ = "1" THEN WINNER$ = CPLR2$: GOTO WINNER
  156. IF PY2$ = "2" AND PY3$ = "3" AND PY4$ = "4" AND PY5$ = "5" AND PY6$ = "6" THEN WINNER$ = PL1$: GOTO WINNER
  157. IF PY1$ = "1" AND PY3$ = "3" AND PY4$ = "4" AND PY5$ = "5" AND PY6$ = "6" THEN WINNER$ = PL2$: GOTO WINNER
  158. IF PY1$ = "1" AND PY2$ = "2" AND PY4$ = "4" AND PY5$ = "5" AND PY6$ = "6" THEN WINNER$ = PL3$: GOTO WINNER
  159. IF PY1$ = "1" AND PY2$ = "2" AND PY3$ = "3" AND PY5$ = "5" AND PY6$ = "6" THEN WINNER$ = PL4$: GOTO WINNER
  160. IF PY1$ = "1" AND PY2$ = "2" AND PY3$ = "3" AND PY4$ = "4" AND PY6$ = "6" THEN WINNER$ = PL5$: GOTO WINNER
  161. IF PY1$ = "1" AND PY2$ = "2" AND PY3$ = "3" AND PY4$ = "4" AND PY5$ = "5" THEN WINNER$ = PL6$: GOTO WINNER
  162. SHARE! = SHARE! + 1: IF SHARE! > 6 AND PAID$ <> "1" THEN GOTO QENDS
  163. GO2REDO:
  164. BLOAD "RISK-IT2.DIE"
  165. LOCATE 22, 3: COLOR 3, 3: LINE INPUT GO2$
  166. IF GO2$ = "Q" THEN GOTO QENDS
  167. IF GO2$ <> "" AND GO2$ <> "Q" AND GO2$ <> "V" THEN GOSUB BOOB: GOTO GO2REDO
  168. RANDOMIZE TIMER: GOSUB DICESOUND: DIE1% = INT(6 * RND + 1)
  169. COLOR 14, 1: LOCATE 11, 60: PRINT ""; DIE1%:
  170. 'GO3REDO: COLOR 3, 3: LOCATE 22, 1: LINE INPUT GO$: COLOR 14, 1
  171. 'IF GO$ = "Q" THEN GOTO QENDS
  172. 'IF GO$ <> "" THEN GOSUB BOOB: BLOAD "RISK-IT2.DIE", 0: COLOR 14, 1: LOCATE 11, 60: PRINT ""; DIE1%: GOTO GO3REDO
  173. GOSUB DICESOUND: DIE2% = INT(6 * RND + 1): COLOR 14, 1: LOCATE 13, 60: PRINT ""; DIE2%: SLEEP 1
  174. LOCATE 15, 36: PRINT ""; DIE1% + DIE2%
  175. GOREDO2:
  176. IF DIE1% + DIE2% = 12 THEN COLOR 15, 4: LOCATE 16, 53: PRINT "`BOXCARS'": LOCATE 17, 51: PRINT "PASS COMMAND?"
  177. IF DIE1% + DIE2% = 2 THEN COLOR 15, 4: LOCATE 16, 52: PRINT "`SNAKE EYES'": LOCATE 17, 51: PRINT "TAKE TWO TURNS"
  178. LOCATE 22, 1: COLOR 3, 3: LINE INPUT GO$: COLOR 14, 1
  179. IF GO$ = "Q" THEN GOTO QENDS
  180. IF GO$ <> "Q" AND GO$ <> "" THEN GOSUB BOOB: BLOAD "RISK-IT2.DIE", 0: LOCATE 11, 60: PRINT ""; DIE1%: LOCATE 13, 60: PRINT ""; DIE2%: LOCATE 15, 36: PRINT ""; DIE1% + DIE2%: GOTO GOREDO2
  181. IF NOT$ <> "1" THEN GOSUB NOTICE
  182. TOTAL! = TOTAL! + 1: IF TOTAL! = 45 THEN GOTO EXHAUSTED:  ELSE N% = DIE1% + DIE2%: BLOAD "RISK-IT2.MFC", 0: GOSUB SD1: GOTO RCIN
  183.  
  184. DICESOUND: SOUND 40, 1: SOUND 0, .75: SOUND 40, 1: SOUND 0, 1.5: SOUND 40, 1: SOUND 0, 1.75: SOUND 40, 1: SOUND 0, 2.5: SOUND 40, 1: SOUND 0, 2.5: SOUND 40, 1: SOUND 0, 2.75: SOUND 40, 1: SOUND 0, 3: SOUND 40, 1: RETURN
  185.  
  186. SD1: FOR x% = 100 TO 3000 STEP 100: SOUND x%, .07: NEXT x%: FOR Y% = 3000 TO 100 STEP -100: SOUND Y%, .07: NEXT Y%: RETURN
  187.  
  188. WHS: FOR x% = 100 TO 3000 STEP 150: SOUND x%, .3: NEXT x%: FOR Y% = 100 TO 2500 STEP 100: SOUND Y%, .3: NEXT Y%: FOR Z% = 2500 TO 100 STEP -100: SOUND Z%, .3: NEXT Z%: RETURN
  189.  
  190. BOOB: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OOP": SLEEP 3: RETURN
  191.  
  192. BBSD1: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OOP": SLEEP 3
  193. BLOAD "RISK-IT2.MFC": LOCATE 18, 15: COLOR 15, 0: RETURN
  194.  
  195. BBS1: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OP1": SLEEP 3: RETURN
  196.  
  197. BBS2: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OP2": SLEEP 3: RETURN
  198.  
  199. BBS3: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OP3": SLEEP 3: RETURN
  200.  
  201. BBS4: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OP4": SLEEP 3: RETURN
  202.  
  203. BBS5: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OP5": SLEEP 3: RETURN
  204.  
  205. BBS6: SOUND 1000, 5: SOUND 100, 5:  BLOAD "RISK-IT2.OP6": SLEEP 3: RETURN
  206.  
  207. WINNER:
  208. BLOAD "RISK-IT2.WIN": GOSUB WHS: GOSUB WHS: GOSUB WHS
  209. COLOR 15, 4: LOCATE 11, 43: PRINT ""; WINNER$
  210. LOCATE 14, 45: IF PLG$ <> "2" THEN PRINT ""; WINNER$:  ELSE PRINT "SHOWOFF!!"
  211. REDOWIN: W$ = INKEY$: IF W$ = "" THEN GOTO REDOWIN
  212. IF W$ = "Q" THEN GOTO QENDS
  213. IF W$ = "R" AND PAID$ = "1" THEN CLEAR : END$ = "R": PAID$ = "1": GOTO NAMES
  214. IF W$ = "R" AND PAID$ <> "1" THEN CLEAR : END$ = "R": GOTO NAMES
  215. GOSUB BOOB: GOTO WINNER
  216. MFCREDO: BLOAD "RISK-IT2.MFC", 0: RETURN
  217. TEX: SOUND 500, 5: SOUND 1500, 5: SOUND 2000, 5: RETURN
  218. TEX2: SOUND 2000, 5: SOUND 1500, 5: SOUND 500, 5: RETURN
  219. CIP:
  220. IF TC$ = "T" THEN COLOR 14, 0: LOCATE 9, 11: RETURN
  221. IF TC$ = "C" THEN COLOR 14, 0: LOCATE 8, 11: GOTO ALLCHANCE
  222. ALLCHANCE:
  223. REDOCH: RANDOMIZE TIMER: C% = INT(1050 * RND + 1)
  224. COLOR 15, 0:
  225. LOCATE 18, 12: PRINT "                                                           "
  226. LOCATE 19, 13: PRINT " THANKS FOR TRYING CHANCE. I HOPE YOU DON'T REGRET IT!    "
  227. LOCATE 21, 12: PRINT "                                                           "
  228. LOCATE 22, 12: PRINT "                                                           "
  229. COLOR 14, 0: LOCATE 8, 11
  230. IF C% > 0 AND C% < 26 THEN GOTO CH1
  231. IF C% > 25 AND C% < 51 THEN GOTO CH2
  232. IF C% > 50 AND C% < 76 THEN GOTO CH3
  233. IF C% > 75 AND C% < 101 THEN GOTO CH4
  234. IF C% > 100 AND C% < 126 THEN GOTO CH5
  235. IF C% > 125 AND C% < 151 THEN GOTO CH6
  236. IF C% > 150 AND C% < 176 THEN GOTO CH7
  237. IF C% > 175 AND C% < 201 THEN GOTO CH8
  238. IF C% > 200 AND C% < 226 THEN GOTO CH9
  239. IF C% > 225 AND C% < 251 THEN GOTO CH10
  240. IF C% > 250 AND C% < 276 THEN GOTO CH11
  241. IF C% > 275 AND C% < 301 THEN GOTO CH12
  242. IF C% > 300 AND C% < 326 THEN GOTO CH13
  243. IF C% > 325 AND C% < 351 THEN GOTO CH14
  244. IF C% > 350 AND C% < 376 THEN GOTO CH15
  245. IF C% > 375 AND C% < 401 THEN GOTO CH16
  246. IF C% > 400 AND C% < 426 THEN GOTO CH17
  247. IF C% > 425 AND C% < 451 THEN GOTO CH18
  248. IF C% > 450 AND C% < 476 THEN GOTO CH19
  249. IF C% > 475 AND C% < 501 THEN GOTO CH20
  250. IF C% > 500 AND C% < 526 THEN GOTO CH21
  251. IF C% > 525 AND C% < 551 THEN GOTO CH22
  252. IF C% > 550 AND C% < 576 THEN GOTO CH23
  253. IF C% > 575 AND C% < 601 THEN GOTO CH24
  254. IF C% > 600 AND C% < 626 THEN GOTO CH25
  255. IF C% > 625 AND C% < 651 THEN GOTO CH26
  256. IF C% > 650 AND C% < 676 THEN GOTO CH27
  257. IF C% > 675 AND C% < 701 THEN GOTO CH28
  258. IF C% > 700 AND C% < 726 THEN GOTO CH29
  259. IF C% > 725 AND C% < 751 THEN GOTO CH30
  260. IF C% > 750 AND C% < 776 THEN GOTO CH31
  261. IF C% > 775 AND C% < 801 THEN GOTO CH32
  262. IF C% > 800 AND C% < 826 THEN GOTO CH33
  263. IF C% > 825 AND C% < 851 THEN GOTO CH34
  264. IF C% > 850 AND C% < 876 THEN GOTO CH35
  265. IF C% > 875 AND C% < 901 THEN GOTO CH36
  266. IF C% > 900 AND C% < 926 THEN GOTO CH37
  267. IF C% > 925 AND C% < 951 THEN GOTO CH38
  268. IF C% > 950 AND C% < 976 THEN GOTO CH39
  269. IF C% > 975 AND C% < 1001 THEN GOTO CH40
  270. IF C% > 1000 AND C% < 1026 THEN GOTO CH41
  271. IF C% > 1025 AND C% < 1051 THEN GOTO CH42
  272. CH1: IF CH1$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH1$ = "1": PRINT "PUT 5 PENNIES IN THE POT AND THEN SHAKE 1 DIE. IF YOU"
  273. LOCATE 9, 11: PRINT "CAN SHAKE A 1 IN 2 TRIES YOU CAN TAKE 2 PENNIES BACK!"
  274. RETURN
  275. CH2: IF CH2$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH2$ = "1": PRINT "GIVE EACH PLAYER 1 COIN. THEN DRAW 2 CARDS. IF YOU"
  276. LOCATE 9, 11: PRINT "DRAW ANY CLUBS, YOU GET YOUR COINS BACK!"
  277. RETURN
  278. CH3: IF CH3$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH3$ = "1": PRINT "ALL OTHER PLAYERS SHAKE A DIE ONCE & THE HIGHEST"
  279. LOCATE 9, 11: PRINT "ROLLER GETS TO RUB YOUR EARS WITH AN ICE CUBE!"
  280. RETURN
  281. CH4: IF CH4$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH4$ = "1": PRINT "YOU CAN TAKE 1/2 OF THE COINS IN THE POT, IF YOU"
  282. LOCATE 9, 11: PRINT "GET MORE THEN 10, GIVE 1 TO EACH OTHER PLAYER!"
  283. RETURN
  284. CH5: IF CH5$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH5$ = "1": PRINT "PUT 2 COINS IN THE POT AND GIVE 2 TO EACH OF THE OTHER"
  285. LOCATE 9, 11: PRINT "PLAYERS. DRAW A CARD. IF OVER 7, TAKE ANOTHER TURN!"
  286. RETURN
  287. CH6: IF CH6$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 30: CH6$ = "1": PRINT "PUT ON THE WIG AND PRETEND TO BE SANTA CLAUS. TALK TO"
  288. LOCATE 9, 11: PRINT "YOUNGEST PLAYER & SAY THINGS THAT SANTA WOULD!"
  289. RETURN
  290. CH7: IF CH7$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 30: CH7$ = "1": PRINT "PUT ON THE WIG & PRETEND TO BE GRANDMA. SAY THINGS"
  291. LOCATE 9, 11: PRINT "THAT GRANDMA MIGHT SAY, WHEN SHE VISITS!"
  292. RETURN
  293. CH8: IF CH8$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH8$ = "1": PRINT "PRETEND THAT YOU ARE A TEACHER. THE OLDEST HAS BEEN"
  294. LOCATE 9, 11: PRINT "A NAUGHTY STUDENT, TALKING IN CLASS. WHAT WOULD YOU SAY?"
  295. RETURN
  296. CH9: IF CH9$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH9$ = "1": PRINT "OPEN UP A MAGAZINE, AND LOOK FOR PICTURES OF CARS. IF"
  297. LOCATE 9, 11: PRINT "YOU FIND 3, GOOD! IF NOT, PUT 3 PENNIES IN THE POT!"
  298. RETURN
  299. CH10: IF CH10$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH10$ = "1": PRINT "SIT ON A BALLON & BOUNCE AS YOU TRY TO BREAK IT. IF"
  300. LOCATE 9, 11: PRINT "IT BREAKS GET 2 COINS FROM THE POT. IF NOT PUT 2 IN!"
  301. RETURN
  302. CH11: IF CH11$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 2: CH11$ = "1": PRINT "IF THERE IS AN ODD NUMBER OF COINS IN THE POT, YOU CAN"
  303. LOCATE 9, 11: PRINT "HAVE 10 OF ITS COINS. IF AN EVEN NUMBER YOU GET 5!"
  304. RETURN
  305. CH12: IF CH12$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH12$ = "1": PRINT "YOU CAN PAINT THE BELLY BUTTON OF ONE OF THE OTHER"
  306. LOCATE 9, 11: PRINT "PLAYERS WITH ICE WATER, UNTIL THE WOLF WHISTLE!"
  307. RETURN
  308. CH13: IF CH13$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 10: CH13$ = "1": PRINT "DRAW 1 CARD.  IF IT IS A RED CARD YOU TAKE 2 COINS"
  309. LOCATE 9, 11: PRINT "FROM THE POT.  IF ITS BLACK, YOU PUT 3 COINS IN THE POT"
  310. RETURN
  311. CH14: IF CH14$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH14$ = "1": PRINT "GET ON YOUR KNEES AND BE A DOG, WHILE OTHERS ASK"
  312. LOCATE 9, 11: PRINT "YOU TO DO DOGGY TYPE TRICKS!"
  313. RETURN
  314. CH15: IF CH15$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH15$ = "1": PRINT "THE LAST PLAYER SHAKES DICE. IF THE SHAKE IS OVER 7"
  315. LOCATE 9, 11: PRINT "YOU RUB ICE CUBE ON THEIR BACK, IF UNDER 7 THEY RUB YOURS!"
  316. RETURN
  317. CH16: IF CH16$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH16$ = "1": PRINT "YOU GET TO PUT THE WIG ON ANY OF THE OTHER PLAYERS"
  318. LOCATE 9, 11: PRINT "AND TELL THEM WHO THEY SHOULD PRETEND TO BE & TO TALK LIKE!"
  319. RETURN
  320. CH17: IF CH17$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH17$ = "1": PRINT "YOU GET TO CHOOSE SOMEONE ELSE TO BLOW UP A BALLOON"
  321. LOCATE 9, 11: PRINT "UNTIL IT BREAKS. IF THEY DO, YOU GIVE THEM 2 COINS!"
  322. RETURN
  323. CH18: IF CH18$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH18$ = "1": PRINT "YOUNGEST PLAYER GETS TO PUT AN ICE CUBE IN YOUR"
  324. LOCATE 9, 11: PRINT "PANTS OR SHORTS, IF YOU SHAKE AN EVEN # WITH DICE!"
  325. RETURN
  326. CH19: IF CH19$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH19$ = "1": PRINT "LAY ON YOUR BACK ON THE FLOOR. LET EVERYONE DRIP"
  327. LOCATE 9, 11: PRINT "WATER FROM AN ICE CUBE ON YOUR FACE. DON'T YOU MOVE!"
  328. RETURN
  329. CH20: IF CH20$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH20$ = "1": PRINT "LAY ON YOUR BACK ON THE FLOOR AND BARE"
  330. LOCATE 9, 11: PRINT "YOUR BELLY. ALL CAN DRIP WATER FROM AN ICE CUBE ON IT!"
  331. RETURN
  332. CH21: IF CH21$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 13: CH21$ = "1": PRINT "TOSS A BALLOON IN THE AIR. KEEP IT FLOATING BY BLOWING"
  333. LOCATE 9, 11: PRINT "ON IT. IF IT HITS FLOOR, YOU PUT 3 COINS IN POT. HURRY!"
  334. RETURN
  335. CH22: IF CH22$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH22$ = "1": PRINT "DEAL ANY PLAYER 4 CARDS. PLAY WAR. (4 PLAYS). THE WINNER"
  336. LOCATE 9, 11: PRINT "GETS 2 COINS FROM EACH OTHER PLAYER!"
  337. RETURN
  338. CH23: IF CH23$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH23$ = "1": PRINT "USE THE PLAY PHONE AND PRETEND THAT YOU ARE CALLING"
  339. LOCATE 9, 11: PRINT "GOD.  SAY THINGS THAT YOU MIGHT LIKE TO SAY TO GOD!"
  340. RETURN
  341. CH24: IF CH24$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH24$ = "1": PRINT "USE THE PLAY PHONE AND PRETEND THAT YOU ARE CALLING"
  342. LOCATE 9, 11: PRINT "SANTA. SAY THINGS THAT YOU MIGHT LIKE TO SAY TO SANTA!"
  343. RETURN
  344. CH25: IF CH25$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH25$ = "1": PRINT "USE THE PLAY PHONE AND PRETEND THAT YOU ARE CALLING"
  345. LOCATE 9, 11: PRINT "YOUR LOVER.  SAY THINGS THAT YOU MIGHT REALLY SAY!"
  346. RETURN
  347. CH26: IF CH26$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH26$ = "1": PRINT "TELL US SOMETHING YOU LIKE ABOUT THE WAY"
  348. LOCATE 9, 11: PRINT "THE LAST PLAYER BEHAVES, AND THINGS YOU DON'T LIKE!"
  349. RETURN
  350. CH27: IF CH27$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH27$ = "1": PRINT "DRAW 6 CARDS. YOU GET 2 COINS FROM THE POT FOR EACH"
  351. LOCATE 9, 11: PRINT "ACE DRAWN, & PUT 1 COIN IN THE POT FOR EACH FACE CARD!"
  352. RETURN
  353. CH28: IF CH28$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH28$ = "1": PRINT "PUT 5 COINS IN THE POT AND GIVE 2 COINS TO EACH OF"
  354. LOCATE 9, 11: PRINT "THE PLAYERS THAT CAN SHAKE A 5 WITH A DIE IN 1 TRY!"
  355. RETURN
  356. CH29: IF CH29$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 10: CH29$ = "1": PRINT "SHAKE 1 DIE. YOU GET THAT # OF COINS FROM THE POT IF"
  357. LOCATE 9, 11: PRINT "YOU DRAW A BLACK CARD, OR PUT THAT # IN, IF ITS RED!"
  358. RETURN
  359. CH30: IF CH30$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH30$ = "1": PRINT "SECRETLY PUT 1, 2 OR 3 COINS IN YOUR CLOSED HAND, & IF"
  360. LOCATE 9, 11: PRINT "NEXT PLAYERS 1ST GUESS IS RIGHT #, THEN GIVE THE COINS!"
  361. RETURN
  362. CH31: IF CH31$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH31$ = "1": PRINT "PUT 8 COINS IN THE POT! NOW DRAW 8 CARDS. YOU CAN TAKE"
  363. LOCATE 9, 11: PRINT "1 COIN BACK FOR EACH CARD YOU DRAW THAT IS BIGGER THAN 8!"
  364. RETURN
  365. CH32: IF CH32$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH32$ = "1": PRINT "THE SHORTEST PLAYER DRAWS 6 CARDS. YOU GIVE THEM A COIN"
  366. LOCATE 9, 11: PRINT "FOR EACH CARD THAT IS A FACE CARD!"
  367. RETURN
  368. CH33: IF CH33$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH33$ = "1": PRINT "ALL PLAYERS SHAKE DICE. THE 2 HIGHEST SHAKE AGAIN AND"
  369. LOCATE 9, 11: PRINT "THE LOWEST SHAKER GETS 2 COINS FROM ALL OTHER PLAYERS!"
  370. RETURN
  371. CH34: IF CH34$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH34$ = "1": PRINT "THE LAST PLAYER GETS TO RUB ICE CUBE ON YOUR EARS"
  372. LOCATE 9, 11: PRINT "AS YOU SING FROSTY THE SNOWMAN!"
  373. RETURN
  374. CH35: IF CH35$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 15: CH35$ = "1": PRINT "WHILE SECURELY BLINDFOLDED SOMEONE GIVES YOU A BALLOON"
  375. LOCATE 9, 11: PRINT "& TELLS COLOR. YOU SAY YES OR NO. IF RIGHT GET 2 COINS!"
  376. RETURN
  377. CH36: IF CH36$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH36$ = "1": PRINT "PUT 10 COINS IN THE POT. THEN SHAKE 1 DIE 10 TIMES &"
  378. LOCATE 9, 11: PRINT "TAKE 1 COIN BACK FOR EACH 6 YOU CAN SHAKE!"
  379. RETURN
  380. CH37: IF CH37$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH37$ = "1": PRINT "GET 6 FACE CARDS & 1 ACE. SHUFFLE THEM & PUT THEM ALL"
  381. LOCATE 9, 11: PRINT "FACE DOWN. OTHERS DRAW & WHO GETS ACE, GIVES 3 COINS!"
  382. RETURN
  383. CH38: IF CH38$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH38$ = "1": PRINT "TELL US SOMETHING THAT YOU LIKE ABOUT THE WAY THAT"
  384. LOCATE 9, 11: PRINT "THE LAST PLAYER BEHAVES, AND THINGS YOU DON'T LIKE!"
  385. RETURN
  386. CH39: IF CH39$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH39$ = "1": PRINT "TELL US SOMETHING THAT YOU LIKE ABOUT THE WAY"
  387. LOCATE 9, 11: PRINT "THE SILLIEST PLAYER BEHAVES, AND SOME YOU DON'T LIKE!"
  388. RETURN
  389. CH40: IF CH40$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH40$ = "1": PRINT "TELL US SOMETHING THAT YOU LIKE ABOUT THE WAY"
  390. LOCATE 9, 11: PRINT "THE YOUNGEST PLAYER BEHAVES, AND THINGS YOU DON'T LIKE!"
  391. RETURN
  392. CH41: IF CH41$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 20: CH41$ = "1": PRINT "TELL US SOMETHING THAT YOU LIKE ABOUT THE WAY"
  393. LOCATE 9, 11: PRINT "THE OLDEST PLAYER BEHAVES, AND THINGS YOU DON'T LIKE!"
  394. RETURN
  395. CH42: IF CH42$ = "1" THEN GOTO REDOCH:  ELSE CHTIME! = 25: CH42$ = "1": PRINT "USE THE PLAY PHONE AND PRETEND YOU ARE CALLING"
  396. LOCATE 9, 11: PRINT "THE PRESIDENT OF THE USA.  WHAT WOULD YOU SAY TO HIM?"
  397. RETURN
  398. RETURN
  399.  
  400. REF: GOSUB SD1: COLOR 14, 0
  401. IF WAIT$ = "A" AND TC$ = "C" THEN BLOAD "RISK-IT2.RF3": GOTO WAITSKIP
  402. IF TC$ <> "V" THEN BLOAD "RISK-IT2.REF"
  403. IF TC$ = "V" THEN BLOAD "RISK-IT2.RF2"
  404.  
  405. WAITSKIP:
  406. LOCATE 8, 33: PRINT ""; CPLR1$: LOCATE 8, 48: PRINT ""; R1!
  407. LOCATE 10, 33: PRINT ""; CPLR2$: LOCATE 10, 48: PRINT ""; R2!
  408. LOCATE 12, 33: PRINT ""; CPLR3$: LOCATE 12, 48: PRINT ""; R3!
  409. LOCATE 14, 33: PRINT ""; CPLR4$: LOCATE 14, 48: PRINT ""; R4!
  410. LOCATE 16, 33: PRINT ""; CPLR5$: LOCATE 16, 48: PRINT ""; R5!
  411. LOCATE 18, 33: PRINT ""; CPLR6$: LOCATE 18, 48: PRINT ""; R6!
  412.  
  413. REDOREFUSE:
  414. IF WAIT$ = "A" AND TC$ = "C" THEN GOTO WAITSKIP2
  415. IF TC$ <> "V" THEN GOTO SKIPPAU
  416. REDOPAU: PAU$ = INKEY$: IF PAU$ = "" THEN GOTO REDOPAU
  417. GOSUB SD1: RETURN
  418. WAITSKIP2:
  419. SKIPPAU: R$ = INKEY$: IF R$ = "" THEN GOTO SKIPPAU
  420. GOSUB SD1
  421. IF R$ = "1" AND CPLR1$ = "OUT OF GAME" THEN GOSUB BBS1: GOTO REF
  422. IF R$ = "2" AND CPLR2$ = "OUT OF GAME" THEN GOSUB BBS2: GOTO REF
  423. IF R$ = "3" AND CPLR3$ = "NO PLAYER" OR R$ = "3" AND CPLR3$ = "OUT OF GAME" THEN GOSUB BBS3: GOTO REF
  424. IF R$ = "4" AND CPLR4$ = "NO PLAYER" OR R$ = "4" AND CPLR4$ = "OUT OF GAME" THEN GOSUB BBS4: GOTO REF
  425. IF R$ = "5" AND CPLR5$ = "NO PLAYER" OR R$ = "5" AND CPLR5$ = "OUT OF GAME" THEN GOSUB BBS5: GOTO REF
  426. IF R$ = "6" AND CPLR6$ = "NO PLAYER" OR R$ = "6" AND CPLR6$ = "OUT OF GAME" THEN GOSUB BBS6: GOTO REF
  427. IF R$ = "1" THEN R1! = R1! + 1: GOTO HM
  428. IF R$ = "2" THEN R2! = R2! + 1: GOTO HM
  429. IF R$ = "3" THEN R3! = R3! + 1: GOTO HM
  430. IF R$ = "4" THEN R4! = R4! + 1: GOTO HM
  431. IF R$ = "5" THEN R5! = R5! + 1: GOTO HM
  432. IF R$ = "6" THEN R6! = R6! + 1: GOTO HM
  433. IF WAIT$ = "A" AND TC$ = "C" THEN GOSUB BOOB: BLOAD "RISK-IT2.RF3": GOTO WAITSKIP
  434. IF R$ = "7" THEN GOSUB SD1: RETURN
  435. GOSUB TEX2: LOCATE 13, 34: COLOR 15, 4: PRINT " INPUT ERROR ": SLEEP 2: COLOR 0, 0: LOCATE 13, 34: PRINT "              ": GOTO REDOREFUSE
  436. HM:
  437. IF WAIT$ = "A" THEN WAIT$ = ""
  438. IF R1! = 3 THEN GOTO OOG
  439. IF R2! = 3 THEN GOTO OOG
  440. IF R3! = 3 THEN GOTO OOG
  441. IF R4! = 3 THEN GOTO OOG
  442. IF R5! = 3 THEN GOTO OOG
  443. IF R6! = 3 THEN GOTO OOG
  444. RETURN
  445. OOG:
  446. SOUND 1000, 10: SOUND 200, 10
  447. IF R1! = 3 AND OO1! = 1 THEN GOTO DID
  448. IF R2! = 3 AND OO2! = 1 THEN GOTO DID
  449. IF R3! = 3 AND OO3! = 1 THEN GOTO DID
  450. IF R4! = 3 AND OO4! = 1 THEN GOTO DID
  451. IF R5! = 3 AND OO5! = 1 THEN GOTO DID
  452. IF R6! = 3 AND OO6! = 1 THEN GOTO DID
  453. BLOAD "RISK-IT2.WAR"
  454. REDOWARNING: WARNING$ = INKEY$: IF WARNING$ = "" THEN GOTO REDOWARNING
  455. IF WARNING$ <> "N" AND WARNING$ <> "Y" THEN GOSUB BOOB: GOTO OOG
  456. IF WARNING$ = "Y" THEN GOSUB SD1: GOTO SKIPOUT
  457. COLOR 14, 0: LOCATE 22, 14
  458. SOUND 1500, 5: SOUND 1000, 5: SOUND 1200, 5: SOUND 700, 5: SOUND 900, 5: SOUND 400, 5
  459. IF R1! = 3 AND PLG$ = "2" THEN PRINT " OH! OH!, THAT'S 3.  THE SHY ONE IS OUT OF THE GAME! ": CPLR1$ = "OUT OF GAME": CPLR2$ = "THE BRAVE ONE"
  460. IF R2! = 3 AND PLG$ = "2" THEN PRINT " OH! OH!, THAT'S 3.  THE SHY ONE IS OUT OF THE GAME! ": CPLR2$ = "OUT OF GAME": CPLR1$ = "THE BRAVE ONE"
  461. LOCATE 22, 18
  462. IF R1! = 3 AND PLG$ = "3" THEN CPLR1$ = "OUT OF GAME": PL4$ = "OTHER PLAYER": PRINT " OH! OH!, THAT'S 3.  "; PL1$; " IS OUT OF THE GAME!": PL1$ = "OTHER PLAYER"
  463. IF R2! = 3 AND PLG$ = "3" THEN CPLR2$ = "OUT OF GAME": PL5$ = "OTHER PLAYER": PRINT " OH! OH!, THAT'S 3.  "; PL2$; " IS OUT OF THE GAME!": PL2$ = "OTHER PLAYER"
  464. IF R3! = 3 AND PLG$ = "3" THEN CPLR3$ = "OUT OF GAME": PL6$ = "OTHER PLAYER": PRINT " OH! OH!, THAT'S 3.  "; PL3$; " IS OUT OF THE GAME!": PL3$ = "OTHER PLAYER"
  465. IF R1! = 3 AND PLG$ = "4" THEN CPLR1$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL1$; " IS OUT OF THE GAME! ": PL1$ = "OLDEST PLAYER"
  466. IF R2! = 3 AND PLG$ = "4" THEN CPLR2$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL2$; " IS OUT OF THE GAME! ": PL2$ = "LEFT PLAYER"
  467. IF R3! = 3 AND PLG$ = "4" THEN CPLR3$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL3$; " IS OUT OF THE GAME! ": PL3$ = "RIGHT PLAYER"
  468. IF R4! = 3 AND PLG$ = "4" THEN CPLR4$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL4$; " IS OUT OF THE GAME! ": PL4$ = "YOUNGEST PLAYER"
  469. IF R1! = 3 AND PLG$ = "5" THEN CPLR1$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL1$; " IS OUT OF THE GAME! ": PL1$ = "RIGHT PLAYER"
  470. IF R2! = 3 AND PLG$ = "5" THEN CPLR2$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL2$; " IS OUT OF THE GAME! ": PL2$ = "LEFT PLAYER"
  471. IF R3! = 3 AND PLG$ = "5" THEN CPLR3$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL3$; " IS OUT OF THE GAME! ": PL3$ = "OLDEST PLAYER"
  472. IF R4! = 3 AND PLG$ = "5" THEN CPLR4$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL4$; " IS OUT OF THE GAME! ": PL4$ = "YOUNGEST PLAYER"
  473. IF R5! = 3 AND PLG$ = "5" THEN CPLR5$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL5$; " IS OUT OF THE GAME! ": PL5$ = "SHORTEST PLAYER"
  474. IF R1! = 3 AND PLG$ = "6" THEN CPLR1$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL1$; " IS OUT OF THE GAME! ": PL1$ = "TALLEST PLAYER"
  475. IF R2! = 3 AND PLG$ = "6" THEN CPLR2$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL2$; " IS OUT OF THE GAME! ": PL2$ = "SHORTEST PLAYER"
  476. IF R3! = 3 AND PLG$ = "6" THEN CPLR3$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL3$; " IS OUT OF THE GAME! ": PL3$ = "RIGHT PLAYER"
  477. IF R4! = 3 AND PLG$ = "6" THEN CPLR4$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL4$; " IS OUT OF THE GAME! ": PL4$ = "LEFT PLAYER"
  478. IF R5! = 3 AND PLG$ = "6" THEN CPLR5$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL5$; " IS OUT OF THE GAME! ": PL5$ = "OLDEST PLAYER"
  479. IF R6! = 3 AND PLG$ = "6" THEN CPLR6$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3.  "; PL6$; " IS OUT OF THE GAME! ": PL6$ = "YOUNGEST PLAYER"
  480. IF R1! = 3 THEN R1! = 0
  481. IF R2! = 3 THEN R2! = 0
  482. IF R3! = 3 THEN R3! = 0
  483. IF R4! = 3 THEN R4! = 0
  484. IF R5! = 3 THEN R5! = 0
  485. IF R6! = 3 THEN R6! = 0
  486. LOCATE 23, 22: COLOR 14, 0: PRINT " PRESS ANY KEY TO RETURN TO THE GAME "
  487. REDOGOBACK: GOBACK$ = INKEY$: IF GOBACK$ = "" THEN GOTO REDOGOBACK
  488. GOSUB SD1: RETURN
  489. SKIPOUT: BLOAD "RISK-IT2.WR2"
  490. STRIPTIME: STRIPDANCE$ = INKEY$: IF STRIPDANCE$ = "" THEN GOTO STRIPTIME
  491. GOSUB SD1: COLOR 0, 0
  492. LOCATE 21, 8: PRINT "                                                                  "
  493. LOCATE 22, 8: PRINT "                                                                  "
  494. LOCATE 23, 8: PRINT "                                                                  "
  495. COLOR 14, 0: LOCATE 22, 13: PRINT "    OK SPORT! YOUR 1 MINUTE TIMER HAS JUST STARTED!"
  496. SLEEP 60: GOSUB WHS
  497. IF R1! = 3 THEN OO1! = 1
  498. IF R2! = 3 THEN OO2! = 1
  499. IF R3! = 3 THEN OO3! = 1
  500. IF R4! = 3 THEN OO4! = 1
  501. IF R5! = 3 THEN OO5! = 1
  502. IF R6! = 3 THEN OO6! = 1
  503. IF R1! = 3 THEN R1! = 0
  504. IF R2! = 3 THEN R2! = 0
  505. IF R3! = 3 THEN R3! = 0
  506. IF R4! = 3 THEN R4! = 0
  507. IF R5! = 3 THEN R5! = 0
  508. IF R6! = 3 THEN R6! = 0
  509. RETURN
  510. GTMR: COLOR 15, 4: LOCATE 7, 10: GOSUB TEX2: PRINT "     THE TIMER HAS STARTED!  I'M WATCHING, SO GET AT IT!     ": RETURN
  511. QENDS: COLOR 1, 1
  512. IF PAID$ = "1" THEN BLOAD "RISK-IT2.END"
  513. IF PAID$ <> "1" THEN BLOAD "RISK-IT2.EN2": SHARE! = 0
  514. REDOEND: END$ = INKEY$: IF END$ = "" THEN GOTO REDOEND
  515. IF END$ = "Q" THEN COLOR 7, 0: CLS : END
  516. IF END$ = "R" AND PAID$ = "1" THEN CLEAR : DEF SEG = &HB800: NOT$ = "1": PAID$ = "1": END$ = "R": GOTO NAMES
  517. IF END$ = "R" AND PAID$ <> "1" THEN CLEAR : DEF SEG = &HB800: NOT$ = "1": END$ = "R": GOTO NAMES
  518. GOSUB BOOB: GOTO QENDS
  519. CMDS2: COLOR 15, 0: LOCATE 18, 15
  520. IF C2! = 2 THEN GOTO C22
  521. IF C2! = 3 THEN GOTO C23
  522. IF C2! = 4 THEN GOTO C24
  523. IF C2! = 5 THEN GOTO C25
  524. C22: PRINT "TAKE A BLOWN UP BALLOON THAT IS PRETTY FIRM AND"
  525. LOCATE 19, 15: PRINT "SIT ON IT AND TRY TO BREAK IT BEFORE WHISTLE!"
  526. GOSUB SUB1
  527. LOCATE 21, 15: PRINT "YOU SHAKE 1 DIE, & "; PL2$; " SHAKES THE OTHER. THE"
  528. LOCATE 22, 15: PRINT "ONE THAT SHAKES THE LOWEST # GIVES 3 PENNIES TO OTHER!"
  529. TORCREDO2: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO2
  530. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C22
  531. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C22
  532. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C22
  533. IF TC$ = "Q" THEN GOTO QENDS
  534. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  535. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  536. GOSUB BBSD1: GOTO C22
  537. C23: PRINT "PUT ON AN OLD WIG, AND THEN WALK AND TALK"
  538. LOCATE 19, 15: PRINT "LIKE AND OLD LADY"
  539. GOSUB SUB8
  540. LOCATE 21, 15: PRINT "SHAKE THE DICE & IF YOU SHAKE DOUBLES YOU GET"
  541. LOCATE 22, 15: PRINT "5 PENNIES FROM EACH PLAYER. IF NOT GIVE EACH 1!"
  542. TORCREDO3: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO3
  543. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C23
  544. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C23
  545. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C23
  546. IF TC$ = "Q" THEN GOTO QENDS
  547. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  548. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  549. GOSUB BBSD1: GOTO C23
  550. C24: PRINT "PAINT ICE WATER ON "; PL1$; "S EARS AND"
  551. LOCATE 19, 15: PRINT "ON THE END OF THE NOSE TOO!"
  552. GOSUB SUB2
  553. LOCATE 21, 15: PRINT "LET "; PL3$; " TICKLE YOU UNDER THE ARMS"
  554. LOCATE 22, 15: PRINT "AND ON THE BOTTOM OF YOUR BARE FEET!"
  555. TORCREDO4: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO4
  556. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C24
  557. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C24
  558. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C24
  559. IF TC$ = "Q" THEN GOTO QENDS
  560. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  561. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  562. GOSUB BBSD1: GOTO C24
  563. C25: PRINT "TAKE A BALLOON. PUT IT BETWEEN YOUR BELLY & "; PL4$; "S."
  564. LOCATE 19, 15: PRINT "NOW DANCE, SQUEEZING HARD. CAN YOU BREAK IT?"
  565. GOSUB SUB3
  566. LOCATE 21, 15: PRINT "YOU AND "; PL5$; " DRAW CARDS TWICE. FACE CARDS ARE 10."
  567. LOCATE 22, 15: PRINT "THE HIGHEST CARD GETS 3 PENNIES FROM THE OTHER PLAYER!"
  568. TORCREDO5: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO5
  569. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C25
  570. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C25
  571. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C25
  572. IF TC$ = "Q" THEN GOTO QENDS
  573. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 30: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  574. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  575. GOSUB BBSD1: GOTO C25
  576. CMDS3: COLOR 15, 0: LOCATE 18, 15
  577. IF C3! = 2 THEN GOTO C32
  578. IF C3! = 3 THEN GOTO C33
  579. IF C3! = 4 THEN GOTO C34
  580. IF C3! = 5 THEN GOTO C35
  581. C32: PRINT "PICK A MAGAZINE & FIND 5 WORDS BEGINNING WITH A `W'. IF"
  582. LOCATE 19, 15: PRINT "LESS YOU GIVE 2 COINS TO EACH PLAYER - MORE & GET 2! "
  583. GOSUB SUB8
  584. LOCATE 21, 15: PRINT "BLOW UP A BALLOON, AND JUST KEEP BLOWING AND BLOWING"
  585. LOCATE 22, 15: PRINT "UNTIL IT BREAKS. IF YOU DON'T, YOU TAKE NEXT TURN TOO!"
  586. TORCREDO6: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO6
  587. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C32
  588. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C32
  589. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C32
  590. IF TC$ = "Q" THEN GOTO QENDS
  591. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 25: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  592. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  593. GOSUB BBSD1: GOTO C32
  594. C33: PRINT "PICK A MAGAZINE AND FIND 2 PICTURES OF A HORSE. IF YOU"
  595. LOCATE 19, 15: PRINT "DON'T, GIVE 2 COINS TO EACH OF THE OTHER PLAYERS!"
  596. GOSUB SUB3
  597. LOCATE 21, 15: PRINT "RUB AN ICE CUBE ON THE BARE BELLY OF "; PL5$; " UNTIL"
  598. LOCATE 22, 15: PRINT "YOU HEAR THE WOLF WHISTLE SOUND!"
  599. TORCREDO7: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO7
  600. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C33
  601. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C33
  602. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C33
  603. IF TC$ = "Q" THEN GOTO QENDS
  604. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  605. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  606. GOSUB BBSD1: GOTO C33
  607. C34: PRINT "PUT AN ICE CUBE DOWN THE NECK OF "; PL6$; " AND"
  608. LOCATE 19, 15: PRINT "THEN THE TWO OF YOU DANCE TOGETHER!"
  609. GOSUB SUB2
  610. LOCATE 21, 15: PRINT "TAKE A BALLOON. TOSS INTO AIR. KEEP OFF FLOOR WITH"
  611. LOCATE 22, 15: PRINT "FOOT. IF IT HITS FLOOR, GIVE 2 COINS TO EACH PLAYER!"
  612. TORCREDO8: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO8
  613. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C34
  614. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C34
  615. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C34
  616. IF TC$ = "Q" THEN GOTO QENDS
  617. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  618. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  619. GOSUB BBSD1: GOTO C34
  620. C35: PRINT "PRETEND YOU ARE A DINOSAUR, AND SAY THINGS TO THE OTHER"
  621. LOCATE 19, 15: PRINT "PLAYERS, YOU THINK ONE MIGHT SAY, IF IT COULD TALK!"
  622. GOSUB SUB8
  623. LOCATE 21, 15: PRINT "DRAW 5 CARDS. THE OTHER PLAYERS MUST GIVE YOU 2 COINS"
  624. LOCATE 22, 15: PRINT "FOR EACH ACE YOU HAPPEN TO DRAW. IF NONE, TOO BAD!"
  625. TORCREDO9: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO9
  626. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C35
  627. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C35
  628. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C35
  629. IF TC$ = "Q" THEN GOTO QENDS
  630. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  631. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  632. GOSUB BBSD1: GOTO C35
  633. CMDS4: COLOR 15, 0: LOCATE 18, 15
  634. IF C4! = 2 THEN GOTO C42
  635. IF C4! = 3 THEN GOTO C43
  636. IF C4! = 4 THEN GOTO C44
  637. IF C4! = 5 THEN GOTO C45
  638. C42: PRINT "DRAW 1 CARD. IF A FACE CARD, GIVE EACH PLAYER 1 COIN."
  639. LOCATE 19, 15: PRINT "IF ITS AN ACE, GET 3 COINS FROM EACH PLAYER!"
  640. GOSUB SUB8
  641. LOCATE 21, 15: PRINT "SHAKE BOTH DICE. IF YOU SHAKE MORE THAN 9, YOU GET"
  642. LOCATE 22, 15: PRINT "2 COINS FROM EACH PLAYER. LESS THAN 5, YOU GIVE 2 COINS!"
  643. TORCREDO10: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO10
  644. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C42
  645. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C42
  646. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C42
  647. IF TC$ = "Q" THEN GOTO QENDS
  648. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  649. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  650. GOSUB BBSD1: GOTO C42
  651. C43: PRINT "LET "; PL1$; " TICKLE THE BOTTOM OF YOUR FEET,"
  652. LOCATE 19, 15: PRINT "BY PAINTING THEM WITH ICE WATER!"
  653. GOSUB SUB3
  654. LOCATE 21, 15: PRINT "WEAR BLINDFOLD & SHAKE 1 DIE. "; PL2$; " TELLS YOU THE #."
  655. LOCATE 22, 15: PRINT "YOU GUESS IF T OR F. IF YOU'RE RIGHT, THEY GIVE 2 COINS!"
  656. TORCREDO11: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO11
  657. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C43
  658. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C43
  659. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C43
  660. IF TC$ = "Q" THEN GOTO QENDS
  661. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: SLEEP 20: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  662. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  663. GOSUB BBSD1: GOTO C43
  664. C44: PRINT "DRAW A CARD. TELL PLAYERS WHAT SUIT IT IS. YOU MAY LIE!"
  665. LOCATE 19, 15: PRINT ""; PL2$; " AGREES OR NOT. IF RIGHT, GIVE 2 COINS!"
  666. GOSUB SUB1
  667. LOCATE 21, 15: PRINT "IF YOU CAN BLOW UP A BALLOON TIL IT BREAKS, IN 20 SECS,"
  668. LOCATE 22, 15: PRINT "ALL PLAYERS GIVE YOU 2 COINS. IF NOT, GIVE EACH 1 COIN!"
  669. TORCREDO12: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO12
  670. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C44
  671. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C44
  672. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C44
  673. IF TC$ = "Q" THEN GOTO QENDS
  674. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  675. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  676. GOSUB BBSD1: GOTO C44
  677. C45: PRINT ""; PL3$; " MUST SHAKE 1 DIE, AND GIVE YOU THE NUMBER"
  678. LOCATE 19, 15: PRINT "OF COINS THAT SHOWS ON THE DIE!"
  679. GOSUB SUB2
  680. LOCATE 21, 15: PRINT "YOU MUST SHAKE 1 DIE, AND GIVE EACH PLAYER THE NUMBER OF"
  681. LOCATE 22, 15: PRINT "COINS THAT SHOWS ON THE DIE, IF LESS THAN 4!"
  682. TORCREDO13: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO13
  683. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C45
  684. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C45
  685. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C45
  686. IF TC$ = "Q" THEN GOTO QENDS
  687. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  688. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  689. GOSUB BBSD1: GOTO C45
  690. CMDS5: COLOR 15, 0: LOCATE 18, 15
  691. IF C5! = 2 THEN GOTO C52
  692. IF C5! = 3 THEN GOTO C53
  693. IF C5! = 4 THEN GOTO C54
  694. IF C5! = 5 THEN GOTO C55
  695. C52: PRINT "SECRETLY PUT 1 TO 3 COINS IN YOUR CLOSED HAND, & HAVE"
  696. LOCATE 19, 15: PRINT ""; PL4$; " GUESS THE #. IF RIGHT GIVE COINS!"
  697. GOSUB SUB3
  698. LOCATE 21, 15: PRINT "HAVE "; PL5$; " SECRETLY PUT 1 TO 3 COINS IN A CLOSED"
  699. LOCATE 22, 15: PRINT "HAND. IF YOU GUESS CORRECT #, YOU GET THE COINS!"
  700. TORCREDO14: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO14
  701. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C22
  702. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C22
  703. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C22
  704. IF TC$ = "Q" THEN GOTO QENDS
  705. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  706. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  707. GOSUB BBSD1: GOTO C22
  708. C53: PRINT "I HOPE YOU ARE NOT TOO TICKLISH, BECAUSE "; PL6$; " CAN"
  709. LOCATE 19, 15: PRINT "TICKLE YOU UNDER THE ARMS, UNTIL THE WOLF WHISTLE!"
  710. GOSUB SUB1
  711. LOCATE 21, 15: PRINT "YOU MIGHT GET A BIT COLD, BUT "; PL2$; " CAN NOW RUB"
  712. LOCATE 22, 15: PRINT "AN ICE CUBE ALL AROUND ON YOUR FACE!"
  713. TORCREDO15: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO15
  714. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C53
  715. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C53
  716. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C53
  717. IF TC$ = "Q" THEN GOTO QENDS
  718. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: SLEEP 15: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  719. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  720. GOSUB BBSD1: GOTO C53
  721. C54: PRINT "SHAKE THE DICE 5 TIMES.  IF YOU CAN SHAKE A 1 & 1, OR"
  722. LOCATE 19, 15: PRINT "A 6 & 6, EACH PLAYER GIVES YOU 2 COINS!"
  723. GOSUB SUB8
  724. LOCATE 21, 15: PRINT "SHAKE THE DICE 5 TIMES.  YOU GET 1 COIN FROM EACH PLAYER"
  725. LOCATE 22, 15: PRINT "EVERY TIME THE TOTAL IS MORE THAN 9!"
  726. TORCREDO16: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO16
  727. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C44
  728. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C44
  729. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C44
  730. IF TC$ = "Q" THEN GOTO QENDS
  731. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  732. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  733. GOSUB BBSD1: GOTO C44
  734. C55: PRINT "SHAKE ONE DIE.  DRAW THAT # OF CARDS. IF ANY OF THEM"
  735. LOCATE 19, 15: PRINT "ARE A SPADE, YOU MUST GIVE EACH PLAYER 1 COIN!"
  736. GOSUB SUB8
  737. LOCATE 21, 15: PRINT "SHAKE ONE DIE.  DRAW THAT # OF CARDS. IF ANY OF THEM"
  738. LOCATE 22, 15: PRINT "ARE A DIAMOND, YOU GET 1 COIN FROM EACH PLAYER!"
  739. TORCREDO17: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO17
  740. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C55
  741. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C55
  742. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C55
  743. IF TC$ = "Q" THEN GOTO QENDS
  744. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: SLEEP 15: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  745. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  746. GOSUB BBSD1: GOTO C55
  747. CMDS6: COLOR 15, 0: LOCATE 18, 15
  748. IF C6! = 2 THEN GOTO C62
  749. IF C6! = 3 THEN GOTO C63
  750. IF C6! = 4 THEN GOTO C64
  751. IF C6! = 5 THEN GOTO C65
  752. C62: PRINT "SECRETLY DRAW 1 CARD. SAY WHAT IT IS, BUT YOU CAN LIE!"
  753. LOCATE 19, 15: PRINT ""; PL6$; " GUESSES! RIGHT, GIVE COIN. NOT? GET 1!"
  754. GOSUB SUB4
  755. LOCATE 21, 15: PRINT "SHAKE DIE 4 TIMES, AND GET 1 COIN FROM "; PL5$; " FOR"
  756. LOCATE 22, 15: PRINT "EACH TIME YOU SHAKE A 5!"
  757. TORCREDO18: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO18
  758. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C62
  759. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C62
  760. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C62
  761. IF TC$ = "Q" THEN GOTO QENDS
  762. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  763. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  764. GOSUB BBSD1: GOTO C62
  765. C63: PRINT "PICK A MAGAZINE. IF YOU CAN FIND A PICTURE OF A BARN"
  766. LOCATE 19, 15: PRINT "BEFORE THE WHISTLE, YOU GET 3 COINS FROM "; PL1$
  767. GOSUB SUB6
  768. LOCATE 21, 15: PRINT "SHAKE 1 DIE, AND GIVE "; PL2$; " 3 COINS IF YOU"
  769. LOCATE 22, 15: PRINT "SHAKE A 1, 2, OR 3. OTHERWISE GET 3 COINS FROM "; PL2$
  770. TORCREDO19: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO19
  771. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C63
  772. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C63
  773. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C63
  774. IF TC$ = "Q" THEN GOTO QENDS
  775. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  776. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  777. GOSUB BBSD1: GOTO C63
  778. C64: PRINT "DRAW 6 CARDS. GIVE EACH PLAYER A COIN FOR EACH 2, &"
  779. LOCATE 19, 15: PRINT "GET A COIN FOR EACH KING. IF NIETHER, PUT 1 COIN IN POT!"
  780. GOSUB SUB8
  781. LOCATE 21, 15: PRINT "SHAKE DICE 4 TIMES. YOU GET 2 COINS FROM EACH PLAYER"
  782. LOCATE 22, 15: PRINT "FOR EACH TIME YOU SHAKE A DOUBLE!"
  783. TORCREDO20: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO20
  784. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C64
  785. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C64
  786. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C64
  787. IF TC$ = "Q" THEN GOTO QENDS
  788. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  789. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  790. GOSUB BBSD1: GOTO C64
  791. C65: PRINT "YOU GET TO TICKLE THE PLAYER OF YOUR CHOICE ON THE"
  792. LOCATE 19, 15: PRINT "BOTTOM OF THEIR FEET, UNTIL THE WOLF WHISTLE SOUNDS!"
  793. GOSUB SUB7
  794. LOCATE 21, 15: PRINT ""; PL4$; " GETS TO TICKLE YOU ON THE BOTTOM OF THE"
  795. LOCATE 22, 15: PRINT "BARE FEET, UNTIL THE WOLF WHISTLE SOUNDS!"
  796. TORCREDO21: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO21
  797. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C65
  798. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C65
  799. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C65
  800. IF TC$ = "Q" THEN GOTO QENDS
  801. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  802. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  803. GOSUB BBSD1: GOTO C65
  804. CMDS7: COLOR 15, 0: LOCATE 18, 15
  805. IF C7! = 2 THEN GOTO C72
  806. IF C7! = 3 THEN GOTO C73
  807. IF C7! = 4 THEN GOTO C74
  808. IF C7! = 5 THEN GOTO C75
  809. C72: PRINT "DEAL PLAYERS EACH 1 CARD, FACE UP. GIVE THE ONE WITH"
  810. LOCATE 19, 15: PRINT "HIGHEST CARD, 2 COINS. IF ANY TIES, GIVE NOTHING AT ALL!"
  811. GOSUB SUB8
  812. LOCATE 21, 15: PRINT "DEAL PLAYERS EACH 1 CARD, FACE UP. IF OVER 7, YOU GIVE"
  813. LOCATE 22, 15: PRINT "1 COIN, THOSE UNDER 7 GIVE YOU 1 COIN. WITH 7 THEY PASS!"
  814. TORCREDO22: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO22
  815. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C72
  816. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C72
  817. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C72
  818. IF TC$ = "Q" THEN GOTO QENDS
  819. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  820. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  821. GOSUB BBSD1: GOTO C72
  822. C73: PRINT "YOU GET TO GIVE ALL OF THE MEMBERS OF THE OPPOSITE"
  823. LOCATE 19, 15: PRINT "SEX, A BIG KISS ON THE CHEEK!"
  824. GOSUB SUB8
  825. LOCATE 21, 15: PRINT "ALL MEMBERS OF THE OPPOSITE SEX GET TO GIVE YOU A BIG"
  826. LOCATE 22, 15: PRINT "HUG, AND A KISS ON THE CHEEK TOO!"
  827. TORCREDO23: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO23
  828. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C73
  829. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C73
  830. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C73
  831. IF TC$ = "Q" THEN GOTO QENDS
  832. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  833. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  834. GOSUB BBSD1: GOTO C73
  835. C74: PRINT "YOU MUST TRY TO MAKE UP A POEM ABOUT A SNAKE.  IT CAN"
  836. LOCATE 19, 15: PRINT "BE FUNNY OR NOT. THAT IS UP TO YOU!"
  837. GOSUB SUB8
  838. LOCATE 21, 15: PRINT "SELECT SOMEONE ELSE TO MAKE UP A POEM ABOUT A CHICKEN!"
  839. LOCATE 22, 15: PRINT "& THEY HAVE TO SOMEHOW USE THE WORD `ELEPHANT' IN POEM!"
  840. TORCREDO24: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO24
  841. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C74
  842. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C74
  843. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C74
  844. IF TC$ = "Q" THEN GOTO QENDS
  845. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 30: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  846. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  847. GOSUB BBSD1: GOTO C74
  848. C75: PRINT "SECURELY WEAR A BLINDFOLD. NOW THROW A BALLOON INTO"
  849. LOCATE 19, 15: PRINT "THE AIR, AND THEN TRY TO FIND IT. NO PEEKING!"
  850. GOSUB SUB1
  851. LOCATE 21, 15: PRINT "PICK 5 OF YOUR COINS. "; PL2$; " NAMES A DATE AND"
  852. LOCATE 22, 15: PRINT "GETS ANY OF THE 5 COINS THAT MATCH THAT DATE!"
  853. TORCREDO25: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO25
  854. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C75
  855. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C75
  856. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C75
  857. IF TC$ = "Q" THEN GOTO QENDS
  858. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  859. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  860. GOSUB BBSD1: GOTO C75
  861. CMDS8: COLOR 15, 0: LOCATE 18, 15
  862. IF C8! = 2 THEN GOTO C82
  863. IF C8! = 3 THEN GOTO C83
  864. IF C8! = 4 THEN GOTO C84
  865. IF C8! = 5 THEN GOTO C85
  866. C82: PRINT "WALK LIKE A GORILLA, AND TALK ABOUT HOW MUCH YOU LIKE"
  867. LOCATE 19, 15: PRINT "TO EAT BIG RIPE BANANAS!"
  868. GOSUB SUB8
  869. LOCATE 21, 15: PRINT "GET ON YOUR KNEES AND PRETEND TO BE A DOG THAT IS"
  870. LOCATE 22, 15: PRINT "SCRATCHING, BECAUSE THEY HAVE LOTS OF FLEAS!"
  871. TORCREDO26: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO26
  872. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C82
  873. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C82
  874. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C82
  875. IF TC$ = "Q" THEN GOTO QENDS
  876. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  877. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  878. GOSUB BBSD1: GOTO C82
  879. C83: PRINT "PRETEND THAT YOU AND "; PL2$; " ARE BOTH MONKEYS"
  880. LOCATE 19, 15: PRINT "AND YOU ARE PICKING FLEAS OFF OF "; PL2$; "S HEAD!"
  881. GOSUB SUB7
  882. LOCATE 21, 15: PRINT "PRETEND THAT YOU AND "; PL3$; " ARE 2 BIRDS SITTING ON"
  883. LOCATE 22, 15: PRINT "A PERCH, AND TALK ABOUT THINGS BIRDS WOULD TALK ABOUT!"
  884. TORCREDO27: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO27
  885. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C83
  886. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C83
  887. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C83
  888. IF TC$ = "Q" THEN GOTO QENDS
  889. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  890. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  891. GOSUB BBSD1: GOTO C83
  892. C84: PRINT "DEAL ALL OTHER PLAYERS 2 CARDS EACH, FACE UP. THEY"
  893. LOCATE 19, 15: PRINT "GIVE YOU 1 COIN FOR EVERY FACE CARD THEY GET DEALT!"
  894. GOSUB SUB8
  895. LOCATE 21, 15: PRINT "DEAL ALL OTHER PLAYERS 2 CARDS EACH. THEN GIVE THEM EACH"
  896. LOCATE 22, 15: PRINT "A COIN, FOR EACH CARD THEY HAVE THAT IS A HEART!"
  897. TORCREDO28: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO28
  898. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C84
  899. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C84
  900. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C84
  901. IF TC$ = "Q" THEN GOTO QENDS
  902. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  903. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  904. GOSUB BBSD1: GOTO C84
  905. C85: PRINT "DEAL EACH PLAYER 1 CARD, INCLUDING YOURSELF. THE HIGH"
  906. LOCATE 19, 15: PRINT "CLUB, GETS 1 COIN FROM ALL OTHERS. NO CLUBS, NO COINS!"
  907. GOSUB SUB8
  908. LOCATE 21, 15: PRINT "DEAL ALL OTHER PLAYERS 2 CARDS EACH, AND THEY"
  909. LOCATE 22, 15: PRINT "MUST GIVE YOU A COIN FOR EACH THAT IS A FACE CARD!"
  910. TORCREDO29: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO29
  911. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C85
  912. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C85
  913. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C85
  914. IF TC$ = "Q" THEN GOTO QENDS
  915. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  916. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  917. GOSUB BBSD1: GOTO C85
  918. CMDS9: COLOR 15, 0: LOCATE 18, 15
  919. IF C9! = 2 THEN GOTO C92
  920. IF C9! = 3 THEN GOTO C93
  921. IF C9! = 4 THEN GOTO C94
  922. IF C9! = 5 THEN GOTO C95
  923. C92: PRINT "GET 2 COINS FROM EACH OF THE OTHER PLAYERS THAT SHAKE"
  924. LOCATE 19, 15: PRINT "3 OR LESS, WITH ONE SHAKE OF A DIE!"
  925. GOSUB SUB8
  926. LOCATE 21, 15: PRINT "GIVE 1 COIN TO EACH PLAYER THAT CAN SHAKE 4 OR HIGHER"
  927. LOCATE 22, 15: PRINT "WITH ONE SHAKE OF A DIE!"
  928. TORCREDO30: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO30
  929. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C92
  930. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C92
  931. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C92
  932. IF TC$ = "Q" THEN GOTO QENDS
  933. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  934. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  935. GOSUB BBSD1: GOTO C92
  936. C93: PRINT ""; PL6$; " GETS TO DRAW ONE CARD. IF IT IS A FACE CARD"
  937. LOCATE 19, 15: PRINT "GIVE THEM COINS EQUALING A # THEY SHAKE WITH 1 DIE!"
  938. GOSUB SUB7
  939. LOCATE 21, 15: PRINT ""; PL5$; " GETS TO PUT AN ICECUBE DOWN YOUR SHORTS"
  940. LOCATE 22, 15: PRINT "OR UNDERPANTS, AND THEN YOU MUST DO A HULA DANCE TOO!"
  941. TORCREDO31: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO31
  942. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C93
  943. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C93
  944. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C93
  945. IF TC$ = "Q" THEN GOTO QENDS
  946. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  947. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  948. GOSUB BBSD1: GOTO C93
  949. C94: PRINT "EVERY PLAYER PUT 3 COINS IN THE SAME PILE. THEN EACH"
  950. LOCATE 19, 15: PRINT "PLAYER SHAKES A DIE. HIGH SHAKE GET COINS. A TIE SPLITS!"
  951. GOSUB SUB7
  952. LOCATE 21, 15: PRINT "YOU MUST GIVE "; PL4$; " 3 COINS, FOR EACH TIME THEY"
  953. LOCATE 22, 15: PRINT "CAN SHAKE A SIX WITH 1 DIE.  THEY GET 3 TRIES ONLY!"
  954. TORCREDO32: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO32
  955. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C94
  956. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C94
  957. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C94
  958. IF TC$ = "Q" THEN GOTO QENDS
  959. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20:  GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  960. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  961. GOSUB BBSD1: GOTO C94
  962. C95: PRINT ""; PL6$; " GETS TO TAKE THE PAINT BRUSH AND TICKLE"
  963. LOCATE 19, 15: PRINT "THE OUTER EDGES OF YOUR NOSTRILS, TILL WHISTLE SOUNDS!"
  964. GOSUB SUB2
  965. LOCATE 21, 15: PRINT "YOU MUST LET "; PL3$; " PUT AN ICE CUBE UNDER ONE OF"
  966. LOCATE 22, 15: PRINT "YOUR ARM PITS.  HOLD ARM DOWN ON ICECUBE, TIL WHISTLE!"
  967. TORCREDO33: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO33
  968. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C95
  969. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C95
  970. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C95
  971. IF TC$ = "Q" THEN GOTO QENDS
  972. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  973. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  974. GOSUB BBSD1: GOTO C95
  975. CMDS10: COLOR 15, 0: LOCATE 18, 15
  976. IF C10! = 2 THEN GOTO C102
  977. IF C10! = 3 THEN GOTO C103
  978. IF C10! = 4 THEN GOTO C104
  979. IF C10! = 5 THEN GOTO C105
  980. C102: PRINT "PICK A MAGAZINE. YOU HAVE ONLY 15 SECONDS TO FIND"
  981. LOCATE 19, 15: PRINT "PICTURES OF BOATS. GET 1 COIN FROM "; PL1$; " FOR EACH!"
  982. GOSUB SUB7
  983. LOCATE 21, 15: PRINT "PICK A MAGAZINE. OPEN IT WITH YOUR EYES CLOSED. IF THE"
  984. LOCATE 22, 15: PRINT "WORD `SOME' CAN BE FOUND, EACH PLAYER GIVES 2 COINS!"
  985. TORCREDO34: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO34
  986. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C102
  987. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C102
  988. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C102
  989. IF TC$ = "Q" THEN GOTO QENDS
  990. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 15: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  991. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  992. GOSUB BBSD1: GOTO C102
  993. C103: PRINT "YOU MUST TRY TO DO 10 PUSHUPS. IF YOU CAN'T, YOU"
  994. LOCATE 19, 15: PRINT "MUST GIVE EACH PLAYER 1 COIN!"
  995. GOSUB SUB8
  996. LOCATE 21, 15: PRINT "WEAR THE WIG, AND PRETEND THAT YOU ARE MOM. SAY"
  997. LOCATE 22, 15: PRINT "THE TYPES OF THINGS THAT MOMMY WOULD PROBABLY SAY!"
  998. TORCREDO35: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO35
  999. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C103
  1000. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C103
  1001. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C103
  1002. IF TC$ = "Q" THEN GOTO QENDS
  1003. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 30: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1004. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1005. GOSUB BBSD1: GOTO C103
  1006. C104: PRINT "WEAR THE WIG, AND PRETEND TO BE PAPA. SAY SOME"
  1007. LOCATE 19, 15: PRINT "THINGS THAT YOU THINK PAPA MIGHT SAY!"
  1008. GOSUB SUB8
  1009. LOCATE 21, 15: PRINT "YOU MUST TRY TO DO 10 SETUPS.  IF YOU CAN'T, YOU"
  1010. LOCATE 22, 15: PRINT "MUST GIVE EACH PLAYER 2 COINS, AND A KISS TOO!"
  1011. TORCREDO36: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO36
  1012. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C104
  1013. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C104
  1014. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C104
  1015. IF TC$ = "Q" THEN GOTO QENDS
  1016. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 30: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1017. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1018. GOSUB BBSD1: GOTO C104
  1019. C105: PRINT "DRAW A CARD. IF IT IS A HEART, EACH PLAYER GIVES"
  1020. LOCATE 19, 15: PRINT "YOU A COIN. IF IT IS A SPADE, GIVE THEM A COIN!"
  1021. GOSUB SUB8
  1022. LOCATE 21, 15: PRINT "IF YOU CAN DRAW 6 CARDS, WITHOUT GETTING A FACE"
  1023. LOCATE 22, 15: PRINT "CARD, EACH PLAYER MUST GIVE YOU 2 COINS!"
  1024. TORCREDO37: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO37
  1025. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C105
  1026. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C105
  1027. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C105
  1028. IF TC$ = "Q" THEN GOTO QENDS
  1029. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1030. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1031. GOSUB BBSD1: GOTO C105
  1032. CMDS11: COLOR 15, 0: LOCATE 18, 15
  1033. IF C11! = 2 THEN GOTO C112
  1034. IF C11! = 3 THEN GOTO C113
  1035. IF C11! = 4 THEN GOTO C114
  1036. IF C11! = 5 THEN GOTO C115
  1037. C112: PRINT "WEAR BLINDFOLD. THROW BALLOON IN THE AIR AND THEN"
  1038. LOCATE 19, 15: PRINT "FIND IT. IF YOU DO, EACH PLAYER GIVES YOU 1 COIN!"
  1039. GOSUB SUB8
  1040. LOCATE 21, 15: PRINT "SHAKE THE DICE 4 TIMES. IF YOU SHAKE 4, IN ANY OF THE"
  1041. LOCATE 22, 15: PRINT "SHAKES, EACH PLAYER MUST GIVE YOU A KISS AND 2 COINS!"
  1042. TORCREDO38: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO38
  1043. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C112
  1044. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C112
  1045. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C112
  1046. IF TC$ = "Q" THEN GOTO QENDS
  1047. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1048. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1049. GOSUB BBSD1: GOTO C112
  1050. C113: PRINT "DEAL 5 CARDS TO YOU AND "; PL6$; " AND THEN PLAY WAR!"
  1051. LOCATE 19, 15: PRINT "(5 PLAYS ONLY) WINNER GETS 5 COINS FROM THE OTHER ONE!"
  1052. GOSUB SUB2
  1053. LOCATE 21, 15: PRINT "DEAL 1 CARD TO EACH PLAYER, INCLUDING YOU. THE"
  1054. LOCATE 22, 15: PRINT "HIGH CARD WINS 1 COIN FROM EACH PLAYER. SPLIT IF TIE!"
  1055. TORCREDO39: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO39
  1056. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C113
  1057. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C113
  1058. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C113
  1059. IF TC$ = "Q" THEN GOTO QENDS
  1060. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 25: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1061. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1062. GOSUB BBSD1: GOTO C113
  1063. C114: PRINT "DEAL 5 CARDS TO YOU & "; PL2$; " AND PLAY WAR. THE WINNER"
  1064. LOCATE 19, 15: PRINT "GETS 5 COINS. PLAY TIL DONE. IGNORE TIMER WHISTLE!"
  1065. GOSUB SUB6
  1066. LOCATE 21, 15: PRINT "ALL PLAYERS PUT 2 COINS IN THE POT, EXCEPT FOR YOU. YOU"
  1067. LOCATE 22, 15: PRINT "HAVE TO PUT 3 COINS IN THE POT!"
  1068. TORCREDO40: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO40
  1069. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C114
  1070. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C114
  1071. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C114
  1072. IF TC$ = "Q" THEN GOTO QENDS
  1073. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 10: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1074. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1075. GOSUB BBSD1: GOTO C114
  1076. C115: PRINT "ALL PLAYERS PUT 3 COINS IN THE POT, EXCEPT FOR YOU!"
  1077. LOCATE 19, 15: PRINT "YOU ONLY HAVE TO PUT 1 COIN IN THE POT! LUCKY YOU!"
  1078. GOSUB SUB5
  1079. LOCATE 21, 15: PRINT "YOU AND "; PL3$; " SHAKE 1 DIE EACH.  THE ONE WITH THE"
  1080. LOCATE 22, 15: PRINT "HIGH NUMBER GETS TO TAKE 3 COINS FROM THE POT!"
  1081. TORCREDO41: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO41
  1082. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C115
  1083. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C115
  1084. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C115
  1085. IF TC$ = "Q" THEN GOTO QENDS
  1086. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 10: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1087. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1088. GOSUB BBSD1: GOTO C115
  1089. CMDS12: COLOR 15, 0: LOCATE 18, 15
  1090. IF C12! = 2 THEN GOTO C122
  1091. IF C12! = 3 THEN GOTO C123
  1092. IF C12! = 4 THEN GOTO C124
  1093. IF C12! = 5 THEN GOTO C125
  1094. C122: PRINT "EACH PLAYER PUTS 2 COINS IN THE POT, UNLESS THEY CAN"
  1095. LOCATE 19, 15: PRINT "SHAKE A 6 OR LARGER, WITH 1 SHAKE OF THE DICE!"
  1096. GOSUB SUB8
  1097. LOCATE 21, 15: PRINT "DRAW 2 CARDS FROM THE DECK. IF NEITHER IS A SPADE THEN"
  1098. LOCATE 22, 15: PRINT "YOU MUST PUT 4 COINS IN POT. IF BOTH SPADES, TAKE 4 OUT!"
  1099. TORCREDO42: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO42
  1100. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C122
  1101. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C122
  1102. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C122
  1103. IF TC$ = "Q" THEN GOTO QENDS
  1104. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1105. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1106. GOSUB BBSD1: GOTO C122
  1107. C123: PRINT "YOU TAKE COINS FROM THE POT, BUT NO MORE THAN WHAT"
  1108. LOCATE 19, 15: PRINT "THE NUMBER IS THAT YOU CAN SHAKE, WITH 1 DIE SHAKE!"
  1109. GOSUB SUB8
  1110. LOCATE 21, 15: PRINT "SHAKE THE DICE, & TAKE 4 COINS FROM THE POT FOR EACH 4"
  1111. LOCATE 22, 15: PRINT "TOTAL YOU CAN SHAKE.  YOU CAN TAKE 4 SHAKES!"
  1112. TORCREDO43: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO43
  1113. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C123
  1114. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C123
  1115. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C123
  1116. IF TC$ = "Q" THEN GOTO QENDS
  1117. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1118. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1119. GOSUB BBSD1: GOTO C123
  1120. C124: PRINT "DRAW 3 CARDS FROM THE DECK. IF ANY ARE FACE CARDS,"
  1121. LOCATE 19, 15: PRINT "PUT 4 COINS IN THE POT. IF NOT, TAKE 3 COINS OUT!"
  1122. GOSUB SUB8
  1123. LOCATE 21, 15: PRINT "DRAW 6 CARDS FROM THE DECK, AND TAKE 1 COIN FROM THE POT"
  1124. LOCATE 22, 15: PRINT "FOR EACH DIAMOND!. PUT 1 IN FOR EACH CLUB!"
  1125. TORCREDO44: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO44
  1126. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C124
  1127. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C124
  1128. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C124
  1129. IF TC$ = "Q" THEN GOTO QENDS
  1130. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 20: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1131. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1132. GOSUB BBSD1: GOTO C124
  1133. C125: PRINT "YOU HAVE 5 SHAKES, USING BOTH DICE, TO TRY & SHAKE A"
  1134. LOCATE 19, 15: PRINT "DOUBLE 5. DO IT & YOU CAN TAKE 5 COINS FROM THE POT!"
  1135. GOSUB SUB8
  1136. LOCATE 21, 15: PRINT "EVERY PLAYER PUT 3 COINS IN THE POT, & THEN SHAKE 1 DIE."
  1137. LOCATE 22, 15: PRINT "IF THEY CAN SHAKE A 1, THEN THEY CAN TAKE THE COINS BACK!"
  1138. TORCREDO45: TC$ = INKEY$: IF TC$ = "" THEN GOTO TORCREDO45
  1139. IF TC$ = "T" THEN GOSUB TEX: GOSUB CIP: GOSUB CIT: PRINT ""; CHOSEN$: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP 25: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1140. IF TC$ = "A" THEN GOSUB REF: IF R$ <> "7" THEN GOTO SDIE:  ELSE BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C125
  1141. IF TC$ = "V" THEN GOSUB REF: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C125
  1142. IF TC$ = "R" THEN GOSUB RR1: BLOAD "RISK-IT2.MFC": COLOR 15, 0: LOCATE 18, 15: GOTO C125
  1143. IF TC$ = "Q" THEN GOTO QENDS
  1144. IF TC$ = "C" THEN GOSUB CIP: GOSUB TEX: GOSUB PTO: GOSUB PAU: GOSUB GTMR: SLEEP CHTIME!: GOSUB WHS: GOSUB PTO2: GOSUB PAU: GOTO SDIE
  1145. GOSUB BBSD1: GOTO C125
  1146. CIT: RANDOMIZE TIMER: CCMD! = INT(6 * RND + 1)
  1147. IF CCMD! = 1 OR CCMD! = 3 OR CCMD! = 5 THEN CHOSEN$ = "             YOU MUST PERFORM COMMAND #1"
  1148. IF CCMD! = 2 OR CCMD! = 4 OR CCMD! = 6 THEN CHOSEN$ = "             YOU MUST PERFORM COMMAND #2"
  1149. RETURN
  1150. DID: BLOAD "RISK-IT2.DID": DID$ = INKEY$: IF DID$ = "" THEN GOTO DID
  1151. IF R1! = 3 THEN R1! = 0: CPLR1$ = "OUT OF GAME"
  1152. IF R2! = 3 THEN R2! = 0: CPLR2$ = "OUT OF GAME"
  1153. IF R3! = 3 THEN R3! = 0: CPLR3$ = "OUT OF GAME"
  1154. IF R4! = 3 THEN R4! = 0: CPLR4$ = "OUT OF GAME"
  1155. IF R5! = 3 THEN R5! = 0: CPLR5$ = "OUT OF GAME"
  1156. IF R6! = 3 THEN R6! = 0: CPLR6$ = "OUT OF GAME"
  1157. GOSUB SD1
  1158. GOTO SDIE
  1159. CHIT: A% = INT(6 * RND + 1): B% = INT(6 * RND + 1): N% = A% + B%
  1160. IF N% = 2 AND C2! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1161. IF N% = 3 AND C3! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1162. IF N% = 4 AND C4! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1163. IF N% = 5 AND C5! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1164. IF N% = 6 AND C6! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1165. IF N% = 7 AND C7! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1166. IF N% = 8 AND C8! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1167. IF N% = 9 AND C9! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1168. IF N% = 10 AND C10! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1169. IF N% = 11 AND C11! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1170. IF N% = 12 AND C12! > 5 THEN GOTO CHIT:   ELSE GOTO RCIN
  1171. EXHAUSTED:
  1172. BLOAD "RISK-IT2.OVR"
  1173. EXHAUSTED2: MO$ = INKEY$: IF MO$ = "" THEN GOTO EXHAUSTED2
  1174. GOSUB SD1
  1175. IF MO$ = "R" AND PAID$ = "1" THEN CLEAR : NOT$ = "1": DEF SEG = &HB800: END$ = "R": PAID$ = "1": GOTO NAMES
  1176. IF MO$ = "R" AND PAID$ <> "1" THEN CLEAR : NOT$ = "1": DEF SEG = &HB800: END$ = "R": GOTO NAMES
  1177. IF MO$ = "Q" GOTO QENDS
  1178. GOSUB BOOB: GOTO EXHAUSTED
  1179. NOTICE:
  1180. NOT$ = "1"
  1181. BLOAD "RISK-IT2.NOT"
  1182. NOTICE2: ALERT$ = INKEY$: IF ALERT$ = "" THEN GOTO NOTICE2
  1183. RETURN
  1184. PAU:
  1185. WAIT$ = INKEY$: IF WAIT$ = "" THEN GOTO PAU
  1186. IF WAIT$ = "A" AND TC$ = "C" THEN GOSUB REF: GOTO SDIE
  1187. RETURN
  1188. PTO:
  1189. IF TC$ = "C" THEN COLOR 31, 4: LOCATE 7, 10: PRINT "      PRESS `A' TO ABORT. ANY OTHER KEY STARTS TIMER       "
  1190. IF TC$ <> "C" THEN COLOR 31, 4: LOCATE 7, 10: PRINT "                  ANY KEY STARTS TIMER                     "
  1191. RETURN
  1192. PTO2:
  1193. COLOR 31, 4: LOCATE 7, 10: PRINT "                 PRESS ENTER FOR DICE SCREEN                 "
  1194. RETURN
  1195. SUB1:
  1196. GOSUB ALLSUB: PRINT ""; PL1$; "!": COLOR 15, 0: RETURN
  1197. SUB2:
  1198. GOSUB ALLSUB: PRINT ""; PL2$; "!": COLOR 15, 0: RETURN
  1199. SUB3:
  1200. GOSUB ALLSUB: PRINT ""; PL3$; "!": COLOR 15, 0: RETURN
  1201. SUB4:
  1202. GOSUB ALLSUB: PRINT ""; PL4$; "!": COLOR 15, 0: RETURN
  1203. SUB5:
  1204. GOSUB ALLSUB: PRINT ""; PL5$; "!": COLOR 15, 0: RETURN
  1205. SUB6:
  1206. GOSUB ALLSUB: PRINT ""; PL6$; "!": COLOR 15, 0: RETURN
  1207. SUB7:
  1208. GOSUB ALLSUB: PRINT "YOUR CHOICE!": COLOR 15, 0: RETURN
  1209. SUB8:
  1210. GOSUB ALLSUB: PRINT "NOT NEEDED!": COLOR 15, 0: RETURN
  1211. ALLSUB:
  1212. COLOR 10, 1: LOCATE 20, 48: RETURN
  1213.  
  1214.